Disc to the Future 2/Disc to the Future Part II Programmer's Reference (Wayzata Technology)(6013)(1992).bin/PC/MISCBAS/MEMBRAIN.ASC

Text File | 1987-01-11 | 6KB | 165 lines

100 REM BY KEN WITT     TRACY HIGH SCHOOL      CELL NOD. D. NIXON
110 READ H,S,K,N,C,W,P
120 DATA 6700,30,53,0,1,0,0
130 PRINT"DO YOU WISH TO SEE AN EXPLANATION OF THIS PROGRAM"
140 PRINT"(1=YES, 0=NO)"
150 INPUT Q9
160 IF Q9=0 THEN 1660
170 PRINT "IN THIS PROGRAM YOU WILL BE ROLE PLAYING. YOU WILL ACT AS"
180 PRINT "A CELL MEMBRANE AND YOUR RESPONSIBILITY WILL BE TO MAKE"
190 PRINT "ADJUSTMENTS IN THE FOLLOWING ITEMS:"
200 PRINT "1.WATER"
210 PRINT "2.SUGAR"
220 PRINT "3.POTASSIUM IONS"
230 PRINT "4.SODIUM IONS"
240 PRINT "5.CHLORIDE IONS"
250 PRINT "6.WASTE(PRIMARILY AMMONIA COMPOUNDS)"
260 PRINT "----------------------------------------------"
270 PRINT "SAFE CONCENTRATIONS ARE AS FOLLOWS:"
280 PRINT "          WATER BETWEEN 6000 AND 8000 MOLECULES"
290 PRINT "          SUGAR BETWEEN 10 AND 35 MOLECULES"
300 PRINT "          POTASSIUM BETWEEN 40 AND 53 IONS"
310 PRINT "          SODIUM BETWEEN 0 AND 13 IONS"
320 PRINT "          CHLORIDE BETWEEN 1 AND 3 IONS"
330 PRINT "          WASTE BETWEEN 0 AND 10 MOLECULES"
340 PRINT "------------------------------------------------------"
350 PRINT
360 PRINT
370 PRINT "YOU WILL BE A CELL MEMBRANE OF ESCHERICHIA COLI. YOUR"
380 PRINT "CONCENTRATIONS ARE:"
390 PRINT "          WATER-67% OR 6700 MOLECULES     SUGAR-30 MOLECULES"
400 PRINT "          POTASSIUM IONS-53            NO SODIUM OR WASTE"
410 PRINT "          A TRACE OF CHLORIDE ION"
420 GOTO 1660
430 PRINT
440 PRINT "-------------------------------------------------------"
450 PRINT "UNDERSTAND THAT AS YOU DO ANY OF THE FOLLOWING ENERGY WILL"
460 PRINT "BE USED UP IN THE AMOUNTS SHOWN."
470 PRINT "      GET RID OF WASTE-4 MOLECULES OF SUGAR"
480 PRINT "--------------------------------------------------------"
490 PRINT "CHANGES IN THE CELL DUE TO OSMOSIS AND DIFFUSION TAKE"
500 PRINT "PLACE AUTOMATICALLY. OTHER ENERGY FOR OTHER FUNCTIONS"
510 PRINT "OF THE CELL, SUCH AS PREPARATION FOR REPRODUCTION ALSO"
520 PRINT "DEPRICIATE AUTOMATICALLY."
530 PRINT "WASTE BUILD UP FROM SUCH ENERGY ALSO TAKES PLACE."
540 PRINT
550 PRINT "PRETEND YOU ARE NOW PLACED INTO A SOLUTION WHICH HAS THE"
560 PRINT "FOLLOWING CONCENTRATIONS:"
570 PRINT "(THE CONCENTRATIONS OF THIS SOLUTION ALWAYS REMAINS CONSTANT)"
580 PRINT "      WATER-87%            SUGAR-10%         SODIUM-TRACE"
590 PRINT "      POTASSIUM-TRACE      CHLORIDE-TRACE"
600 PRINT "*********************************************************"
610 PRINT "THE CELL NOW BEGINS TO BURN SUGAR FOR ENERGY. DIFUSION AND"
620 PRINT "OSMOTIC POTENTIALS GO INTO EFFECT. YOU ARE NOW READY TO"
630 PRINT "ATTEMPT TO KEEP THIS CELL ALIVE!"
640 PRINT "========================================================="
650 LET J=0
660 LET P=P+1
670 IF P=13 THEN 1580
680 PRINT "CHOOSE THE NUMBER OF THE ITEM YOU WISH TO CHANGE!"
690 INPUT X
700 LET H=H+400
710 LET S=S-4
720 LET K=K-2
730 LET N=N+2
740 LET W=W+4
750 IF X=1 THEN 810
760 IF X=2 THEN 1030
770 IF X=3 THEN 1120
780 IF X=4 THEN 1170
790 IF X=5 THEN 1270
800 IF X=6 THEN 1300
810 PRINT "WHAT IS THE NUMBER OF WATER MOLECULES YOU WANT REMOVED"
820 INPUT A
830 IF A<H THEN 860
840 PRINT "YOU DONT HAVE THAT MANY DUM-DUM!!!"
850 GOTO 810
860 LET H=H-A
870 PRINT "ENERGY IS USED HERE TO GET RID OF WATER."
880 LET S=S-4
890 PRINT
900 PRINT "PRESENT CONCENTRATIONS ARE AS FOLLOWS:"
910 PRINT"POTASSIUM IONS--";K,"WASTE MOLECULES--";W
920 PRINT"SODIUM INS--";N,"WATER MOLECULES--";H
930 PRINT"CHLORIDE IONS--";C,"SUGAR MOLECULES--";S
940 PRINT
950 IF H<6000 THEN 1390
960 IF H>8000 THEN 1390
970 IF S<10 THEN 1420
980 IF S>35 THEN 1420
990 IF K<40 THEN 1470
1000 IF K>60 THEN 1470
1010 IF W>10 THEN 1510
1020 GOTO 650
1030 PRINT "HOW MANY SUGAR MOLECULES DO YOU WANT"
1040 INPUT B
1050 IF B<150 THEN 1080
1060 PRINT "THE SOLUTION CANNOT OFFER YOU THAT MANY AT ONCE!"
1070 GOTO 1030
1080 LET S=S+B
1090 PRINT "ENERGY IS NEEDED FOR PINOCYTOSIS!"
1100 LET S=S-3
1110 GOTO 890
1120 PRINT "POTASSIUM IONS ARE REGULATED BY ACTIVE TRANSPORT."
1130 PRINT "MORE SPECIFIC POTASSIUM IONS ARE REGULATED BY THE"
1140 PRINT "SODIUM PUMP, WHICH IS FOR EVERY SODIUM ION PUMPED OUT"
1150 PRINT "ONE POTASSIUM ION IS GAINED ON THE INSIDE OF THE MEMBRANE"
1160 GOTO 660
1170 PRINT "HOW MANY SODIUM IONS DO YOU WANT REMOVED"
1180 INPUT D
1190 IF D<N THEN 1220
1200 PRINT "YOU DO NOT HAVE THAT MANY!!!"
1210 GOTO 1170
1220 LET N=N-D
1230 LET K=K+D
1240 PRINT "ENERGY IS NEEDED FOR ACTIVE TRANSPORT!!"
1250 LET S=S-2
1260 GOTO 890
1270 PRINT "YOU HAVE LITTLE OR NO CONTROL OR NEED TO CORRECT THE"
1280 PRINT "CHLORIDE ION CONCENTRATION!!"
1290 GOTO 660
1300 PRINT "HOW MANY WASTE MOLECULES DO YOU WANT TO GET RID OF"
1310 INPUT E
1320 IF E<W-3 THEN 1350
1330 PRINT "YOU DO NOT HAVE THAT MANY TO GET RID OF!"
1340 GOTO 1300
1350 LET W=W-E
1360 PRINT "ENERGY IS NEEDED TO GET RID OF WASTE!"
1370 LET S=S-4
1380 GOTO 890
1390 PRINT "***CRISIS***  ADJUST WATER CONCENTRATION IMMEDIATELY!!"
1400 LET J=J+1
1410 GOTO 1540
1420 PRINT "***CRISIS***  ADJUST SUGAR CONCENTRATION IMMEDIATELY!!"
1430 IF S>0 THEN 1450
1440 PRINT "YOU ARE BURNING PROTOPLASM DUMB-DUMB."
1450 LET J=J+1
1460 GOTO 1540
1470 PRINT "***CRISIS***  ADJUST POTASSIUM ION CONCENTRATION "
1480 PRINT "              IMMEDIATELY!!"
1490 LET J=J+1
1500 GOTO 1540
1510 PRINT "***CRISIS***  ADJUST WASTE CONCENTRATION IMMEDIATELY!!"
1520 LET J=J+1
1530 PRINT
1540 IF J<3 THEN 660
1550 PRINT "YOU DID NOT FUNCTION WELL AS A CELL MEMBRANE."
1560 PRINT "***YOUR CELL IS NOW DEAD********"
1570 GOTO 1650
1580 PRINT "***VERY GOOD***  YOU HAVE MAINTAINED THE CELL LONG"
1590 PRINT "ENOUGH TO REACH MATURITY. THE CELL IS NOW ABOUT TO"
1600 PRINT "REPRODUCE. DO YOU WISH TO TRY TO KEEP ONE OF THE "
1610 PRINT "DAUGHTER CELLS ALIVE (1=YES AND 0=NO)"
1620 INPUT Q
1630 LET P=0
1640 IF Q=1 THEN 650
1650 STOP
1660 PRINT "DO YOU WISH TO SEE AN EXPLANATION OF CONCENTRATIONS"
1670 PRINT "AND RULES  (1=YES, AND 0=NO)"
1680 INPUT Z
1690 IF Z=1 THEN 430
1700 IF Z=0 THEN 650
1710 END
TRATIONS"
1670 PRINT "AND RULES  (1=YES, AND 0=NO)"
1680 INPUT